home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
cpucheck.zip
/
CHIPS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-04-30
|
566b
|
30 lines
{
CHIPS.PAS - Unit to determine CPU and math coprocessor chip types
installed in a PC
Version 1.0, 03-12-90
Version 1.1, 04-21-90, add 80486 detection
After C-callable function chips() by Pat Shea.
See CHIPTYPE.ASM for more information.
(C)Copyright 1990 Spirit of Performance, Inc.
All rights reserved.
Unauthorized use or copying prohibited by law.
}
{$R-,S-,I-,D+,F-,V-,B-,N-,L+ }
UNIT Chips;
INTERFACE
function ChipType : integer;
IMPLEMENTATION
{$L d:\tpsource\ChipType.obj }
function ChipType; external;
END.